home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Graphics / RainbowSystem / Installation / Install next >
Text File  |  1997-09-07  |  3KB  |  78 lines
  1. ;
  2. ; Script di installazione per RainbowSystem 1.1 (7.9.97)
  3. ;
  4.  
  5. (set lib-dest   "LIBS:")
  6. (set rs-dest    "SYS:Tools")
  7.  
  8. (
  9.         (if (< (/ (getversion) 65536) 39) (abort "RainbowSystem need at least OS 3.0"))
  10.  
  11.         (message
  12.                 (cat      "\n\n\nRainbowSystem, installation script.\n\n"
  13.                           "This script installs RainbowSystem on your Amiga.\n\n"
  14.                           "(C)opyright 1997 by Andrea Latina\nAll rights reserved."
  15.                 )
  16.         )
  17.  
  18.         ;
  19.  
  20.         (set rs-dest
  21.             (askdir
  22.                 (prompt  "Select directory where to install RainbowSystem (a directory called `RainbowSystem` will be created here).")
  23.                 (help    "If you specify a path, a new directory called 'RainbowSystem' will be created in it.\nThe program will be copied in this directory.")
  24.                 (default rs-dest)
  25.             )
  26.         )
  27.  
  28.         (set lib-dest
  29.                 (askdir
  30.                         (prompt  "Select directory where to install the 'rainbow.library'")
  31.                         (help    @copylib-help)
  32.                         (default lib-dest)
  33.                 )
  34.         )
  35.  
  36.         (if (NOT (exists (tackon rs-dest "RainbowSystem")))
  37.             (makedir (tackon rs-dest "RainbowSystem")))
  38.  
  39.         (set @default-dest (tackon rs-dest "RainbowSystem"))
  40.  
  41.         (copyfiles
  42.             (prompt "Copying 'RainbowSystem' to " rs-dest "RainbowSystem/...")
  43.             (pattern "~(rainbow.library)")
  44.             (source "/")
  45.             (dest   (tackon rs-dest "RainbowSystem"))
  46.         )
  47.  
  48.         (copyfiles
  49.             (prompt "Copying 'RainbowSystem.info' to " rs-dest "...")
  50.             (source "//Rainbow_System.info")
  51.             (newname "RainbowSystem.info")
  52.             (dest   rs-dest)
  53.         )
  54.  
  55.         ; Copy the library.
  56.  
  57.         (copyfiles
  58.             (prompt (cat "Copying 'rainbow.library' to " lib-dest))
  59.             (help   @copylib-help)
  60.             (source "Libs/rainbow.library")
  61.             (dest   lib-dest)
  62.         )
  63.  
  64.         (if (askbool
  65.                 (prompt  "Should be RainbowManager automatically runned at bootup?")
  66.                 (help "RainbowManager can be loaded automatically on bootup.\n\n"
  67.                       "For this purpose an icon called 'RainbowManger' will be copied to the WBStartup drawer.")
  68.                 (default 1)
  69.             )
  70.  
  71.             ((copyfiles
  72.                 (prompt "Copying 'RainbowManager.info' to WBStartup...")
  73.                 (source "WBStartup_Icon/RainbowManager.info")
  74.                 (dest   "SYS:WBStartup/"))
  75.             (run  ("SetITool SYS:WBStartup/RainbowManager %s" (tackon rs-dest "RainbowSystem/RainbowManager"))))
  76.         )
  77. )
  78.